home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d8 / tadex10.arc / EXECTIME.SLT < prev    next >
Text File  |  1989-04-23  |  1KB  |  52 lines
  1. //                              EXECTIME.SLT
  2. //                              Version 1.00
  3. //
  4. //                             By John Abatte
  5. //                             April 22, 1989
  6. //
  7. // This script provides a time delay for dialing EXEC-PC.
  8. // The only item you have to modify is to put your directory entry number
  9. // for EXEC-PC where indicated below.
  10.  
  11. str ctime[8],                 // storage for current time string
  12.     dtime[8],                 // storage for delay time string
  13.     endt[3] = ":00",
  14.     dn[4] = "45";             // YOUR directory entry number for EXEC-PC
  15.  
  16. main()
  17. {
  18.  int tm;
  19.  
  20.  _time_format = 1;
  21.  tm = curtime();
  22.  time(tm, ctime);
  23.  
  24.  clear_scr();
  25.  box(22,6,57,16,3,0,48);
  26.  box(23,7,56,15,0,0,17);
  27.  pstraxy("Current Time is ",28,8,31);
  28.  pstraxy(ctime,44,8,30);
  29.  pstraxy("Enter the Time to Dial EXEC-PC",25,10,31);
  30.  pstraxy("in the Format `HH:MM' Based on",25,11,31);
  31.  pstraxy("24 Hour Clock.",33,12,31);
  32.  pstraxy("[     ]",36,14,62);
  33.  gotoxy(37,14);
  34.  gets(dtime, 5);
  35.  strcat(dtime, endt);
  36.  clear_scr();
  37.  box(24,9,55,15,3,0,48);
  38.  box(25,10,54,14,0,0,17);
  39.  pstraxy("Delayed Time is ",28,11,31);
  40.  pstraxy(dtime,44,11,30);
  41.  pstraxy("Current Time is ",28,13,31);
  42.  
  43.  while ((strcmpi(ctime, dtime)) != 0)
  44.    {
  45.     tm = curtime();
  46.     time(tm, ctime);
  47.     pstraxy(ctime,44,13,30);
  48.     delay_scr(10);
  49.    }
  50.  dial(dn,0,0);
  51. }
  52.